home *** CD-ROM | disk | FTP | other *** search
/ The Ultimate Frank Lloyd…ght - America's Architect / Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso / pre / flw / flwdef.dir / 00201_Script_201 < prev    next >
Text File  |  1994-11-15  |  3KB  |  130 lines
  1. on startMovie
  2.   global nowFrame, dialogOn
  3.   global horNess, currMM
  4.   set dialogOn = FALSE
  5.   set currMM = "FLWWW"
  6.   puppetSprite 22, TRUE
  7.   puppetSprite 23, TRUE
  8.   puppetSprite 21, TRUE
  9.   set the immediate of sprite 23 to TRUE
  10.   set the stretch of sprite 23 to FALSE
  11.   puppetSprite 6, TRUE
  12.   repeat with i = 12 to 16
  13.     puppetSprite i, TRUE
  14.   end repeat
  15. end startMovie
  16.  
  17. on stepMovie
  18.   global nowFrame,currFrame
  19.   if nowFrame <> currFrame then
  20.     seeAlsoList
  21.     set currFrame = nowFrame
  22.   end if
  23. end stepMovie
  24.  
  25. on stopMovie
  26.   puppetSprite 21, FALSE
  27.   put " " into field "SeeAlsoText"
  28.   set the castNum of sprite 21 to 1050
  29.   updateStage
  30. end stopMovie
  31.  
  32. on saveLocals
  33.   global lastFrame, nowFrame, lastMovie
  34.   set lastFrame = nowFrame
  35.   set lastMovie = "FLWDEF"
  36. end saveLocals
  37.  
  38. on buttonState
  39.   global FrankNav, dialogOn
  40.   global bflag
  41.   
  42.   
  43.   if dialogOn = FALSE then
  44.     
  45.     sectionCheck
  46.     
  47.     -- don't check global buttons unless mouse is down at bottom
  48.     if (the mouseV > 200) or (bFlag = TRUE) then
  49.       doState
  50.       set bFlag = FALSE
  51.     end if
  52.     
  53.   else if dialogOn = TRUE then
  54.     if the mouseDown then
  55.       if the mouseCast <> the number of cast "glossDialog" then
  56.         beep
  57.       end if
  58.     end if
  59.   end if
  60.   
  61. end buttonState
  62.  
  63. on deBackStep
  64.   global nowFrame
  65.   puppetSprite 6, FALSE
  66.   if nowFrame = "de000fur001°°°" then
  67.     go to frame "de000lig018°°°" of movie "FLWDEL"
  68.   else
  69.     go to (the frame - 1)
  70.   end if
  71. end deBackStep
  72.  
  73. on deForStep
  74.   global nowFrame
  75.   puppetSprite 6, FALSE
  76.   if nowFrame = "de000fur067°°°" then
  77.     go to "de000sta002°°°" of movie "FLWDES"
  78.   else
  79.     go to (the frame + 1)
  80.   end if
  81. end deForStep
  82.  
  83. on sectionCheck
  84.   global lastSprite, nowFrame, dialogOn
  85.   if dialogOn = FALSE then
  86.     if rollover(12) then
  87.       set the castNum of sprite 12 to A34
  88.     else
  89.       set the castNum of sprite 12 to A18
  90.     end if
  91.     
  92.     if rollover(13) then
  93.       set the castNum of sprite 13 to A35
  94.     else
  95.       set the castNum of sprite 13 to A21
  96.     end if
  97.     
  98.     if rollover(15) then
  99.       set the castNum of sprite 15 to A32
  100.     else
  101.       set the castNum of sprite 15 to A16
  102.     end if
  103.     
  104.     if rollover(16) then
  105.       set the castNum of sprite 16 to A33
  106.     else
  107.       set the castNum of sprite 16 to A17
  108.     end if
  109.   end if
  110. end sectionCheck
  111.  
  112. on textRoll txHt
  113.   global origLocV, topHat, dialogOn, seeAlsoBox
  114.   if dialogOn = FALSE and seeAlsoBox = FALSE then
  115.     set topHat = txHt + (the height of sprite 6 / 2)
  116.     if the width of sprite 6 > 300 then
  117.       if the mouseH > 229 and the mouseV > 363 and the mouseV < 431 then
  118.         set the locV of sprite 6 to topHat
  119.       else if (the mouseH > 610) or (the mouseH < 229) or (the mouseV > 431) or (the mouseV < txHt) then
  120.         set the locV of sprite 6 to 485
  121.       end if
  122.     else 
  123.       if the mouseH > 414 and the mouseV > 363 and the mouseV < 431 then
  124.         set the locV of sprite 6 to topHat
  125.       else if the mouseH > 610 or the mouseH < 414 or the mouseV > 431 or the mouseV < txHt then
  126.         set the locV of sprite 6 to 549
  127.       end if
  128.     end if
  129.   end if
  130. end textRoll